emental-health.com...mental health matters

<% blnNotLoggedIn=Trim(Request.Cookies("user"))="" And Session("UserID")="" If blnNotLoggedIn Then strError="You need to be logged in, to access this page. Click here to login." Response.Redirect "error.htm?msg="& Server.URLEncode(strError) End If strArtID=Request.Querystring("ID") If Trim(strArtID)="" Then strMessage="No article identifier specified" Else strSQL= "SELECT ArticleID, Title, Author, AuthorDate, UserID FROM tblArticle WHERE ArticleID=" &strArtID Set rstArticles = connObj.Execute(strSQL) If Not rstArticles.EOF Then strMessage=rstArticles("Title")&"
" &rstArticles("Author") &", " &FormatDateTime(rstArticles("AuthorDate"),vbLongDate) &"" strSQL="SELECT * FROM tblParagraph WHERE ArticleID=" &rstArticles("ArticleID")& " ORDER BY parNumber" Set rstPars=connObj.Execute(strSQL) If Not rstPars.EOF Then While Not rstPars.EOF strBody=strBody& "" &rstPars("Title")& "

" strBody=strBody& Replace(Replace(rstPars("Body"),VBCrLf,"
"),"''","'") & "

" rstPars.MoveNext Wend Else strMessage="Article does not contain paragraphs." End If Else strMessage="Article identifier does not exist." End If End If %> emental-health.com...mental health matters

This page is currently in development